home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr53 / pctv4n_1.zip / VGAMONO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-10  |  136b  |  12 lines

  1. PROCEDURE vgamono;
  2. { Forces VGA to produce monochrome display. }
  3.  
  4. VAR r: registers;
  5.  
  6. BEGIN
  7. r.ah := $10;
  8. r.al := $1b;
  9. intr($10,r);
  10. END;
  11.  
  12.